Sub q(ByVal b As Byte, Optional ByVal j As Long = 6)